home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / hauptstadt quiz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  21 lines
  1. 10 letn=28:letw=0:letr=0:fori=1ton:readx$,y$
  2. 20 print"[147]hauptstadt quiz 1988 by frank fenske":print:print
  3. 30 print"wie heisst die hauptstadt von/der":print:print" ";x$;"?":print
  4. 40 input z$ :print
  5. 50 ify$=z$then let r=r+1:print"richtig ";y$;"":forf=0to500:nextf:print:nexti
  6. 60 ify$<>z$then let w=w+1:print"falsch ";y$;"":forf=0to500:nextf:print:nexti
  7. 70 print"sie wurden ";n;"mal gefragt":print"sie gaben ";r;" richtige antworten"
  8. 80 print"sie gaben ";w;" falsche antworten"
  9. 90 print"das wars leute   run oder reset"
  10. 100 data"australien", "canberra":data"u.s.a.","washington"
  11. 110 data"japan","tokyo":data"tuerkei","ankara":data"spanien","madrid"
  12. 120 data"deutschland","bonn":data"china","peking":data"aegypten","kairo"
  13. 130 data"u.d.s.s.r","moskau":data"oesterreich","wien":data"england","london"
  14. 140 data"iran","teheran":data"schweden","stockholm":data"daenemark","kopenhagen"
  15. 150 data"israel","jerusalem":data"kanada","ottawa":data"lichtenstein","vaduz"
  16. 160 data"thailand","bangkok":data"ungarn","budapest":data"libanon","beirut"
  17. 170 data"algerien","algier":data"chile","santiago":data"cuba","havanna"
  18. 180 data"griechenland","athen":data"irland","dublin":data"italien","rom"
  19. 190 data"wer schrieb dieses programm","frank fenske"
  20. 200 data"wann wurde dieses programm geschrieben","1988"
  21.